home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Fluffe.AMOS / Fluffe.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  992 b   |  37 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************
  8.  
  9. ' Shift up-speed:  
  10. SPEED=2
  11. ' Step:
  12. STEG=1
  13. ' The X-size:
  14. XSIZE=100
  15. ' The Y-size:
  16. YSIZE=100
  17.  
  18. Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Hide : Cls 0
  19. Palette $0,$0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$E,$D,$C,$B,$A,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  20.  
  21. For X=0 To XSIZE Step STEG
  22.    For Y=0 To YSIZE Step STEG
  23.       Plot X,Y,Rnd(30)+1
  24.    Next 
  25. Next 
  26.  
  27. For X=0 To XSIZE Step STEG
  28.    For Y=0 To YSIZE Step STEG
  29.       A=Point(X-STEG,Y)+Point(X,Y-STEG)+Point(X+STEG,Y)+Point(X,Y+STEG)+Point(X,Y)
  30.       Plot X,Y,(A/5)
  31.    Next 
  32. Next 
  33.  
  34. Shift Up SPEED,1,31,1
  35. Clear Key 
  36. Wait Key 
  37. Edit